object InterestForm: TInterestForm
  Left = 444
  Top = 204
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Interest'
  ClientHeight = 222
  ClientWidth = 277
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object PeriodLabel: TLabel
    Left = 10
    Top = 110
    Width = 101
    Height = 31
    Alignment = taCenter
    AutoSize = False
    Caption = 'Compounding Period:'
    WordWrap = True
  end
  object InterestGroup: TRadioGroup
    Left = -4
    Top = 0
    Width = 281
    Height = 105
    Hint = 
      'Select "Nominal Rate" or "Actual Rate" given'#13'compounding period ' +
      'and opposite value.|'
    Ctl3D = True
    ItemIndex = 1
    Items.Strings = (
      'Nominal Rate (%):'
      'Actual Rate (%):')
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object InterestHelpButton: TBitBtn
    Left = 196
    Top = 186
    Width = 75
    Height = 26
    Hint = 'Get help...'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = InterestHelpButtonClick
    Kind = bkHelp
  end
  object CloseInterestButton: TBitBtn
    Left = 114
    Top = 186
    Width = 75
    Height = 26
    Hint = 'Return to calculator.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = CloseInterestButtonClick
    Kind = bkClose
  end
  object InterestSolveButton: TBitBtn
    Left = 32
    Top = 186
    Width = 75
    Height = 26
    Hint = 'Solve for value selected.'
    Caption = '&Solve'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = InterestSolveButtonClick
  end
  object PeriodDropDown: TComboBox
    Left = 122
    Top = 112
    Width = 145
    Height = 24
    Hint = 'Select compounding period.|'
    Style = csDropDownList
    ItemHeight = 16
    Items.Strings = (
      'Annual'
      'Day (360)'
      'Day (365)'
      'Monthly'
      'Quarterly'
      'Semi-Annual'
      'Weekly')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object NominalRateEnter: TMemo
    Left = 150
    Top = 28
    Width = 115
    Height = 25
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    WordWrap = False
    OnKeyUp = NominalRateEnterKeyUp
  end
  object ActualRateEnter: TMemo
    Left = 150
    Top = 70
    Width = 115
    Height = 25
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    WordWrap = False
    OnKeyUp = ActualRateEnterKeyUp
  end
end